home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung 2 / Power-Programmierung CD 2 (Tewi)(1994).iso / c / library / mslang / vm / src / xms / xms0e.asm < prev    next >
Encoding:
Assembly Source File  |  1993-12-13  |  572 b   |  39 lines
  1.     .model    large,pascal
  2.  
  3.     include xms.inc
  4.  
  5.     .code    XMS_TEXT
  6.  
  7.     ;ERR PUBLIC __ErrXmsGetEMBHandleInfo(HEMB hemb, PBYTE pcLock, PBYTE pcHandles, PUSHORT pckbSize);
  8.  
  9.     public    __ErrXmsGetEMBHandleInfo
  10. __ErrXmsGetEMBHandleInfo    proc    \
  11.     hemb:word,            \
  12.     pcLock:ptr byte,        \
  13.     pcHandles:ptr byte,        \
  14.     pckbSize:ptr word
  15.  
  16.     mov    dx,[hemb]
  17.     XmsCall 0Eh
  18.     jc    Exit        ;Brif error
  19.  
  20.     mov    ax,bx
  21.  
  22.     les    bx,[pcLock]
  23.     mov    es:[bx],ah
  24.  
  25.     les    bx,[pcHandles]
  26.     mov    es:[bx],al
  27.  
  28.     les    bx,[pckbSize]
  29.     mov    es:[bx],dx
  30.  
  31.     xor    ax,ax
  32.  
  33. Exit:
  34.     ret
  35.  
  36. __ErrXmsGetEMBHandleInfo    endp
  37.  
  38.     end
  39.